Attribute VB_Name = "Module1"
Option Explicit

Public Const Px = 32 '32 pixel/n n=GUO!!! :-)
Public Const Fps_Def = 100 'default fps

Public Const miu = 0.173
Public Const p1 = 0.5
Public Const p2 = 2
'v=p*(1-miu)/miu

Public Const R_1 = 15
Public Const R_2 = 23

Public Const BounceV = 11.8 * Px / Fps_Def 'small value=11.8n/s?
Public Const BounceVW = 3 'small
Public Const BounceV2 = 8 'big

Public Const BounceQ = 0.45 'floor
Public Const BounceQ2 = 0.8 '???
Public Const BounceQW = 0.1 'water

Public Const BounceDS = 1 '??? delta
'Public Const BounceVYMax = 10

Public Const Gravity = 15.75 * Px / (Fps_Def * Fps_Def) '??? small value=15.75n/s^2?
Public Const MaxVY = 10 '8.9 * Px / Fps_Def '?? small value=8.9n/s???
Public Const Gravity2 = 0.05 'big value=??
Public Const MaxVY2 = 1.5 'big
Public Const MaxVY2a = 12 'big2

Public Const Sqr2 = 1.414
Public Const Sqr2_2 = Sqr2 / 2

Public tst As New clsLevel

Public xHitTest(1 To 8) As Boolean
